﻿Public Class FormJuego
    Public imgUnidades1 As New List(Of PictureBox)
    Public imgUnidades2 As New List(Of PictureBox)
    Dim t As ToolTip
    Dim base1, base2 As New PictureBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Tooltips()
        base1.Tag = Jugador1.miEstructura
        base1.Location = Jugador1.miEstructura.Coordenadas
        base1.BackgroundImage = Jugador1.miEstructura.Imagen
        base1.BackgroundImageLayout = ImageLayout.Stretch
        base2.Tag = Jugador2.miEstructura
        base2.Location = Jugador2.miEstructura.Coordenadas
        base2.BackgroundImage = Jugador2.miEstructura.Imagen
        base2.BackgroundImageLayout = ImageLayout.Stretch
    End Sub

    Public Sub AsignarIcono()
        Dim unidad As UnidadBase
        For Each b In imgUnidades1
            unidad = TryCast(b.Tag, Batallon).Tropas(0)
            If unidad.GetType.Equals(GetType(Infanteria)) Or unidad.GetType.Equals(GetType(Sargento)) Then
                b.Image = My.Resources.InfanteriaMapa2
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Arquero)) Or unidad.GetType.Equals(GetType(Mosquetero)) Then
                b.Image = My.Resources.InfanteriaMapa
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Caballeria)) Or unidad.GetType.Equals(GetType(Paladin)) Then
                b.Image = My.Resources.CaballeriaMapa
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Campeon)) Then
                b.Image = My.Resources.CampeonMapa
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Comandante)) Then
                b.Image = My.Resources.ComandanteMapa
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Mago)) Then
                b.Image = My.Resources.MagoMapa
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Archimago)) Then
                b.Image = My.Resources.ArchimagoMapa
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Dragon)) Then
                b.Image = My.Resources.DragonMapa
                b.BackColor = Color.Cyan
                b.BackgroundImageLayout = ImageLayout.Stretch
            End If
        Next
        For Each b In imgUnidades2
            unidad = TryCast(b.Tag, Batallon).Tropas(0)
            If unidad.GetType.Equals(GetType(Infanteria)) Or unidad.GetType.Equals(GetType(Sargento)) Then
                b.Image = My.Resources.InfanteriaMapa2
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Arquero)) Or unidad.GetType.Equals(GetType(Mosquetero)) Then
                b.Image = My.Resources.InfanteriaMapa
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Caballeria)) Or unidad.GetType.Equals(GetType(Paladin)) Then
                b.Image = My.Resources.CaballeriaMapa
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Campeon)) Then
                b.Image = My.Resources.CampeonMapa
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Comandante)) Then
                b.Image = My.Resources.ComandanteMapa
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Mago)) Then
                b.Image = My.Resources.MagoMapa
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Archimago)) Then
                b.Image = My.Resources.ArchimagoMapa
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            ElseIf unidad.GetType.Equals(GetType(Dragon)) Then
                b.Image = My.Resources.DragonMapa
                b.BackColor = Color.Crimson
                b.BackgroundImageLayout = ImageLayout.Stretch
            End If
        Next
    End Sub

    Private Sub Tooltips()
        t.SetToolTip(BtnAtacarTropa, "Atacar a un batallón enemigo")
        t.SetToolTip(BtnAtacarBase, "Atacar a un edificio")
        t.SetToolTip(BtnBolaFuego, "Lanzar Bola de fuego")
        t.SetToolTip(BtnDebilidad, "Lanzar Debilidad")
        t.SetToolTip(BtnDispararBase, "Disparar a un edificio")
        t.SetToolTip(BtnDispararTropas, "Disparar a un batallón enemigo")
        t.SetToolTip(BtnMeteorito, "Lanzar Lluvia de meteoritos")
        t.SetToolTip(BtnMover, "Mover este batallón")
        t.SetToolTip(BtnTeleportar, "Lanzar Teleportar")
    End Sub



End Class
